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ee heed enone hoc seeLecsuelucivolveleulveseelvelvenvenveneey 
Se deed eke edn oho heeheesveLlehveleeseelvesvesvesuureulvulve) 
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**F 1LE**1D**LXPRINT 
LL XX XX PPPPPPPP RRRRRRRR T1111! NN NN TITTTTTTTT ‘ 
LL Xx XX PPPPPPPP RRRRRRRR T1111 NN NN TTTTTTTTIT ° 
LL XX XX PP PP RR RR Il NN NN TT : 
LL XX XX PP PP RR RR Il NN NN TT ° 
LL XX =X PP PP RR RR Il NNNN NN TT ° 
LL XX XX PP PP RR RR II NNNN NN TT : 
LL Xx PPPPPPPP RRRRRRRR Il NN NN NN TT ° 
LL XX PPPPPPPP RRRRRRRR Il NN NN_ NN TT ° 
LL XX = KX PP RR RR II NN NNNN TT ° 
LL XX =X PP RR RR I! NN NNNN TT ° 
LL xx XX PP RR RR II NN NN TT eoee ° 
LL xX XX PP RR RR Il NN NN TT cece ° 
LLLLLLLLLL Xx XX PP RR RR III NN NN TT eves ° 
LLLLLLLLLL Xx XX PP RR RR T1111 NN NN TT cece ° 
LL T1111] SSSSSSSS : 
LL W111 SSSSSSSS : 
LL I] $s : 
LL I] $$ : 
LL I] Ss : 
LL I] ss : 
LL I] SSSSSS ; 
LL I] SSSSSS : 
LL I] Ss : 
LL I] Ss : 
LL I] SS ‘ 
LL I] $s : 
LLLLLLLLLL 111i! SSSSSSSS : 
LELLLLLLLL 1111 SSSSSSSS ; 
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MODULE EDTSLXPRINT ( ! Type oe rts Line on the termina 


gDEnt = 'v04-000' 
= 
BEGIN 


. 
PPT EE SST S TTT TST TTT Ta TT iri rrr iit iii iti iti i iii iii ti tiiititiiitiiiiiiiiy 


'@ 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
* 
® 
: 
is THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
i's ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OUNERSHIP OF THE SDFIWARE TS HEREOY 
ie TRANSFERRED. : 
: ® 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION, . 

® 

® 

* 

® 

® 

® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
t# SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PTTITITILILILI LILLE LLL LILI LLL i TTL Tiiiiiiiiiiiiiiiiiiitiiiie 
i 


'ee 
! FACILITY: EDT == The DEC Standard Editor 


i ABSTRACT: 
This module displays the current Line on the terminal. 
i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
i MODIFIED BY: 


‘ 

1 

t 

4 

i] 

1 

' 

4 

t 

i] 

t 

1 

! 1-001 = Original. DJS 30-JAN-81. This nodule was created b by 
! extracting the routine EDTS$TY_CURLN from the module EXEC.BLI. 
' Regularize headers. | Js 23-Mar-198 

' paenge +4 defined string. STS 06-Oct-1981 

! 1- - Use EDTSSFMT tht netend of EDT$$ ur =f MTBUE JBS 05-Jul-1982 
i 1-005 - Turn off the working message. JBS Jul -1982 

! retain oes ~Jul-1982 

: $2-Sep-1982 

idth. 2 as 22-0c t-1982 

4 

i] 


at oe 
‘es 
Sra 
te 


i q- 43 - “ponte eciat Be beyond aS term 
!' 1-009 = Use ED $56 FR 
! 1-010 = Add VT220 Support conditional. JB 


1=Feb 


XPRINT.BLI Edit: JBS1 


i 
T_LNPOS ¢ teinin of EDTSS6. PRV VCO to measure against terminal's width. JBS 01-Nov-19 


EDTSLXPRINT EDTSLXPRINT = type the current Line on the term tb-se Sep-1984 VAX-11 Bliss-32 V4.0-74 Page 2 

ates clicetiane ” : ety 7 9}: 9¢: 3 Disk KSVMSMASTER: CEDT OCRCILAPRINT.BLI #1 . (2) 

3 38 sh ! XSBTTL ‘Declarations’ : 
: 60 § 1 ' TABLE OF CONTENTS: : 
3 ° » : ! : 
; 68 ¢ 1 REQUIRE EDTSRC:TRAROUNAM! ; i 
; 65 ¢ 1 FORWARD ROUTINE ; 
; 08 5 : EDTSSTY_CURLN; ! Display the current Line ; 
: $8 be 1! : 
> 69 3 6 1 | INCLUDE FILES: : 
: rT 508 i 3 
: ie 0509 REQUIRE "EDTSRC:EDTREQ’; ; 
i 645 1 LIBRARY "EDTSRC:SUPPORTS'; ; 
: OR Oger 1! 
: A 0648 ; MACROS: é 
Rae weal : 
: 81 063¢ ; EQUATED SYMBOLS: : 
a ites he Le 

>: 85 0656 1 | OWN STORAGE: 

>: 86 065 1! 

Poa) Gh tt 

: 89 0660 1 | EXTERNAL REFERENCES: 

; 90 0661 1! 

; 91 0662 1! In the routine 


—_ 


K 4 
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04-500 EDTSSTY_CURLN eevee the current Line on the t 12-808=1 3c 9:98:28 DISK SVMEMASTERSCEDT. SRCSLXPRINT.BLIs1 . (3) 

; 33 3 ! ZSBTTL “EDTSSTY_CURLN = type the current Line on the terminal’ 

; 34 is } GLOBAL ROUTINE EDTSSTY_CURLN ! Type the current Line on the terminal 

3 = 

3 1 

H 38 O38 1 !e¢ 

; 100 98 } FUNCTIONAL DESCRIPTION: 

5 101 grt 1/ This routine displays the current Line on the terminal. If the 

3 198 ts 1; EDTS$G_NOS flag is on the Line number is displayed before the Line. 

3 + v7 } If case flagging is enabled it is handled by this routine. 

; 198 oro | | FORMAL PARAMETERS: 

; 109 ei NONE 

; 109 % { IMPLICIT INPUTS: 

; 111 681 1! EDT$$G_CAS_FLG 

3 Vg ors 7? EDTS$$G_NOS 

: 11 685 1 | EDTSS$A_WK_LN 

3; 6114 684 1! EDT$$G_EXE_SBITS 

3 6115 685 1! EDTS$Z_EXE SBLK 

: 116 56 1} EDT$$G_TI_QID 

: Wi ets ! } EDTS$G_FMT_LNPOS 

; 119 689 | t IMPLICIT OUTPUTS: 

; 121 691 NONE 

; § o695 | { ROUTINE VALUE: 

; 1¢5 699 | Same as EDTSSFMT_CRLF 

; 187 67 | i SIDE EFFECTS: 

: 129 99 1 | NONE 

3; 6130 00 1! 

3 : 1 870) : !e- 

; g 708 BEGIN 

; 135 705 EXTERNAL ROUTINE 

* 7 $ EDTSSFMT_CH : NOVALUE, ' Output a character 

ae 7 EDTSSFMT- CHWID, ' Compute a character's width 

; «(138 708 EDTSSFILC_LNO : NOVALUE, ' Output a Line number 

; 139 709 EDTSSFMT_TEXT : NOVALUE, ' Output an CEOB) or other text selected by the user 

; 140 710 EDTSSFMT-CRLF, i End of the output Line 

3 16) ay EDTSS$SSTOP_WKINGMSG : NOVALUE; ! Turn off the ‘working’ message 

: 128 18 EXTERNAL 

3 (144 714 EDTS$$G_CAS_FLG, ! Upper and lower-case flagging 

3; 145 715 EDTS$G_NOS, ' Print Line numbers 

3 146 r8 EDTSSA-uK LN : REF LIN_BLOCK, : furcent Line of text in the work file 

: 14 qt ETS teceke solr he del lone switches 

; 129 at EDT$$2~EXE-SBLK : REF NODE_BLOCK, i The option switch value block. 
| 
| 
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‘a EDT SS ty CURLN weve the current Line on the t 1 ~3007 138% 94:96:28 DLEKSVMGMASTERSCEDT SRCULXPRINT.BLI:1 . (3) 
150 7 

1 L Z1F SUPPORT_VT220 

§ eri EDTSS$B_CHAR_INFO : BLOCKVECTOR (256, 1, BYTE], ! Information about characters 

5 

EDTS$G_TI_WID ! Width of the terminal 

HM EDTS$G_FMT_LNPOS; ! Horizontal position for formatting purposes 

9 LOCAL 

0 POINTER, ! Pointer into the Line 

LEN; ! Number of characters to print 

'¢ 


Make sure the ‘working’’ message is not still printing. 
EDTSSSTOP_WKINGMSG (); 
Check for the special case of end of buffer and display CE0B] or user's string 


IF (.EDTSSA_WK_LN EQLA EDT$$Z_EOB_LN) 
EDTSSFMT_TEXT (0) 
1s BEGIN 
;_Print the Line number if numbers are enabled. 


IF .EDTS$G_NOS THEN EDTSSFILL_LNO (); 
'¢ 
' Get the Length of the Line to eVapiar- Normally this is just the 
! Length of the Line, but if the /BRIEF option is on, we need to 
minimize it with the value of the qualifier. ' 
LEN = .EDTSSA_WK_LN CLIN_LENGTH); 
IF .EDT$$G_EXE_SBITS<OPB_BRIEF> 
THEN 

BEGIN 

'¢ 


If no value was specified, use 10 for the length. 


WN OO VONOUL WN —"OOONOu 


SSNS 


PPP DPA AAAI EE PPE EE 
WN = S OONOA NE WN 0 OD NAME WIN O ODNOAOUE AR SOOO NAUE WN 


~~ 


IF (.,EDTS$Z_EXE_SBLK CSW_VAL1] EQL 0) THEN EDT$$Z_EXE_SBLK CSW_VAL1) = 10; 
IF (.EDTS$Z_EXE_SBLK CSW_VAL1] LSSU .LEN) THEN LEN = -EDT$$Z2_EXE_SBLK CSW_VAL1); 
END; 


FARGVe SSeS 


'¢ 
: Get a pointer to the Line. 


POINTER = EDTS$S$A_WK_LN CLIN_TEXT); 


SOSOCCOOCOSOSOSOSOOSOOSOSOSOSOSSOSOSGOOSOOOOOCOoooooooooooooooOooooOooooooo 


POPPIN INININY we 0 a a st tt th hh hh 


Be Be Se Se Se Se Bs Se Se Se Be Se Ge Be Ge Ge Se Se Ge Se Ge Ge Se Fe Fe Ge Se Ge Ge Fe Ge Ge Sse Se Ge Se Se Ge SF Se Ge Ge Fe Ss Ge Ge FF Se oe Ge FF Se ee Se Se Seas 


“ 

o 

w 
AAINIAINIWI BS BB EPPS FS FW 
+ 


0 Page 


4 
bY RINT = type the current Line on the term 16-Se 4. Sat a 5 
Se DT.SRCILXPRINT.BLI;1 (3) 


pa19B4 12:28:49 DISKSVMSRASTERSCE 


ERTS RARINT 


07 
INCR I FROM 1 TO .LEN DO 
BEGIN 


Loc 
= we must flag the 


AL 
FLAG_CHAR, ! 4 
CHAR ! The character to prin 
NEW_POS; 


CHAR = CHSRCHAR_A (POINTER); 


ehorester 


+ 
! Determine if the character needs to be flagged with 
a leading apostrophe. 


CASE -EDTSSG_CAS_FLG FROM 0 TO 2 OF 


BREESE EEE FANN WINING PPP NPOPONPONNUD) 2 SS OOD 


Pp 
Y 
4 
4 
& 
4 
& 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
4 
4 
4 
5 
; Z1F SUPPORT_VT220 
THEN 
5 
5 
; 
5 
5 
5 
5 
5 
5 
5 
5 
4 
4 


5 8 7 

3 9 7 

3 9 7 

: 7 

3 ¢ 7 

8 7 

: 4 7 

3 5 7 

3 $ 7 

3 7 

3 3 7? 

3 7 

3 0 7 

; 1 7 

3 ¢ 7 

3 7 

3 4 7 

3 5 7 

: 555 199 (0) tlaggi 

3 : ! No case flaggin 

: 558 798 BEGIN eine 
3 § 3 799 FLAG_CHAR = 0; 

3 0 800 END; 

eit 802 (1) Fl l 
3 : ' Flag upper case letters 
; S38 B08 BEGIN ° 

: 234 + 4'¢4 

; 235 L 0805 

3 § 6 0806 

3 7 080 

; 238 0808 IF .EDTS$B_CHAR_INFO C.CHAR, 0, 1, 1, 0] ! Upper case letter 
3 9 0809 THEN 

3 0 U 0810 ZELSE 

3 1 U 0811 

3 ¢ U Bais IF ((. CHAR GEQ %C°A') AND (.CHAR LEQ %C'Z')) 
. 2 U Bat THEN 

3 § 4 814 <FI 

3 5 0815 

; ¢ 6 816 FLAG_CHAR = 1 

3 7 81 ELSE 

; 248 818 FLAG_CHAR = 0; 

{$85 $30 END 

i $3) a3} (2) ' Flag t l 
: : ' Flag lower case letters 
3 33 ; 5 BEGIN $ 

3; 255 L 0825 5 XIF SUPPORT_VT220 

3 2 § THEN 

; 258 828 IF .EDTS$B_CHAR_INFO C.CHAR, 0, 0, 1, 0) ! Lower case letter 
3; 259 “e THEN 

3 60 U 0 ZELSE 

; 26 , 1 

3 u 0 § 


IF ((. CHAR GEQ £C'a') AND (.CHAR LEQ %C‘'2')) 
THEN | 


an 
wt 
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TO ee000 EDT Set Y CURLN ag A the current Line on the t 137808- 1382 93:96:28 NT KSUMGMASTERSCEDT SRCILXPRINT.BLI:1 . (35 
3 ¢ <F 1 
3 FLAG_CHAR = 1 
: e ; WO a CHAR = 0 
: $95 3 i END : 
3; 271 41 4 
; if ri} 4 COUTRANGE) : 
$ 7 43 4 ASSERT (0); 
; 274 44 4 TES; 
3; e275 45 4 
; 276 rf 4 !+ 
3 a4 Bee 2 See if there is room for this character on the line. If not, break the Line here. 
; % 0869 4 NEW_POS = .EDTS$SG_FMT_LNPOS + .FLAG_CHAR + EDTSSFMT_CHWID (.CHAR, .EDTS$$G_FMT_LNPOS + .FLAG_CHAR 
3; 281 0851 4 IF (.NEW_POS GEQ .EDTS$G_TI_WID) THEN EDTSSFMT_CRLF (); 
3 Hf ett 4 
; 28 0853 4 !+ 
+ 284 0854 4 ! Output the flag if needed. 
3 +H 0855 4 !- 
: $B tty ¢ IF .FLAG_CHAR THEN EDTSSFMT_CH (%C°''') 
; 288 0858 4 - = 
; 334 0859 4 !+ 
; 290 0860 4 ! And, finally, output the character. 
; 34 0861 4 !- 
; 29 0868 4 EDTSSFMT_CH (.CHAR); 
; 29 086 ; END; 
3 294 0864 
3 0865 END; 
3 0866 
; 0867 '¢ 
3 0868 ! Terminate the Line. 
3 0869 te 
: 0870 RETURN (EDTSSFMT_CRLF ()); 
3 0871 1 END; ! of routine EDT$$TY_CURLN 


-TITLE EDTSLXPRINT ap ag 4 colt - type the current Line 
on erm 
-IDENT \V04-000\ 


.EXTRN EDTSSFMT_CH, EDTSSFMT_CHWID 
-EXTRN EDTSSFILC_LNO, EDTSSFAT_TEXT 
"EXTRN EDTSSFMT CRLF. EDTS$STOP WKINGMSG 
“EXTRN EDT$$G_CAS_FLG, EDT$$G_NOS 

TEXTRN EDTSSA~WK_CN, EDT$$2Z LN 
-EXTRN EDTS$G~EXE_SBITS 

“EXTRN EDT$$Z~EXE~SBLK 

TEXTRN EDTS$$B~CHAR_INFO 

-EXTRN EDT$$G-TI_WID, EDTS$$G_FMT_LNPOS 
TEXTRN EDTSSIATER_ERR 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


PA=aAKmAnN 
Sd 

1_o 

mor 

a 

; a 
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OOS bO EDTSStY CURLN = type the current Line on the t 1 ~$00n 138i 93:96:28 DISKSVMSMASTER:CEDT.SRCILXPRINT.BLI;1 > (3) 
OFFC 00000 -ENTRY EDTSSTY CURLN, Save R2,R3,R4,R5,R6,R7,RB,- = 0665 ; 
R9,R10,R 3 : 
B G E MOVAB EDTSSFAT_CH, R11 : ; 
A 6 E MOVAB EDTSSFMT~CRLF, R10 : : 
g SSSSS888E. 83 SE RP RBYAB.EBTEER-CDAT ag 7 : 
000000006 FB 0001 CALLS #0, EDTS$$STOP_WKINGMSG t 0736 F 
000000006 3F § MOVAB eDts$7_c08 LN? RO : 0741 ; 
D C CMPL FDTSSA_UK.CN, RO : ; 
E he 6 ‘ ONeL sp) + 0743 
000000006 00 wool FS 0 ; CALLS “l, EDTSSFMT_TEXT : : 
7 000000006 E9 0003p 1$: BLBC EDT$$G_NOS, 2$ + 0750 ; 
000000006 09 6 FB 0044 CALLS #0 EDTSSFILL_LNo : ’ 
68 DO 00048 28: MOVL EDTS$$A_WK_LN, “R2 : 0757 F 
6 9A OO4E MOVZBL (R2), CEN : ; 
19 000000006 00 E1 0005 BBC #2, EDT$$G_EXE_SBITS, 4$ + 0759 ; 
0 000000006 00 0059 MOVL.  EDT$$Z_EXE-SBLR, RO : 07 ; 
0 08 ¢ 9060 ADDL2 #8, RO : ; 
60 D5 0006 TSTL (RO) : ; 
0 if 0065 BNEG 3$ : : 
60 A D0 00067 MOVL #10, (RO) : ; 
56 60 D1 0006A 3S: CMPL (ROS, LEN t 0768 ; 
03 if; 90060 BGEQU 4$ : ; 
56 60 D O06F MOVL (RO), LEN : ; 
52 07 CO 900 : 4$ ADDL2 #7, POINTER ; 0775 | ; 
57 D4 0007 CLRL so : 0780 ; 
5p 11 00077 BRB 14$ : ; 
53 82 9A 00079 5$ MOVZBL (POINTER)+, CHAR : 0788 ; 
02 00 000000006 90 CF 0007C CASEL EDTS$$G_CAS.FLG, #0, #2 * 0794 ; 
0016 000F 0020 00084 6$ WORD Jos-687- ; : 
8$-6$ : ; 
000000006 00 09 FB OO08A CALLS #0, EDTSSINTER_ERR + 0843 : 
13 11 00091 BRB 11$ + 0794 ; 
07 6943 01 £0 00093 7s: BBS #1, EDTS$B_CHAR_INFOLCHAR], 9$ : 0808 : 
0A 11 00098 BRB 10$ : 0818 : 
05 6943 0 £1 0009A 8$: BBC #0, EDT$$B_CHAR_INFOLCHAR], 10S : 0828 | ; 
55 1 DO 0009F 9S: MOVL #1. FLAG_CRAR : 0836 : 
: 11 000A2 BRB 11§ : : 
D4 OOOA4 10$:  CLRL FLAG_CHAR : 0838 : 
50 000000006 g DO OOOA6 11$:  MOVL_ EDT$SG_FMT_LNPOS, RO + 0849 ; 
54 C1 OOOAD ADDL3 FLAG CRAR,~RO, R4 ; : 
18 68 00081 PUSHR #*M<R3_R4> : F 
000000006 90 FB 0B CALL #2. EDTSSFMT_CHWID : : 
0 , ¢ BA ADDL * NEW : : 
000000006 00 D} BD CMPL eos: EDT$$G_TI_WID > 0851 3 
A F ¢ CALLS #0, EDTSSFMT_CRLF : 3 
8 £5 C9 12$:  BLBC FLAG_CHAR, 13$ > 0857 : 
68 1 PB oo0cE CALS #1. EDTSSFMT_CH : | : 
3 DD Ai 13$:  PUSHL CHAR ¥ + 0862 ; 
oF 4 FS Boca 14s: kobteo teh ee 0780 | ; 
6A $ FB OOODA 15$: CALLS ny EDTSSFMT_CRLF ; 0870 ; 


$e 


; 
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§bu2000 EDTSS ty CORLN yr eype the current Line on the t 1 30071384 95:99:23 MEMASTERSCEDT SRCILXPRINT.BLI:1 (3) 
1 


04 00000 RET ; 087 
; Routine Size: 222 bytes, Routine Base: _EDTSCODE + 0000 


; 308 0878 | 1<BLF/PAGE> 


Elapsed Time: 00:19.9 
Lines/CPU Min: 3285 
Lexemes/CPU-Min: 9821 
Memory Used: 109 pages 
Compication Complete 
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§bu-000 EDTSSTY CURLN ye ype the current Line on the t 1 ~3007 1383 93:99:28 DLSKSVMGMASTERSCEDT  SRCSLXPRINT .BLI:1 - (4). 
; 303 aers END ! of module EDTSLXPRINT | ; 
3 76 0 ELUDOM | : 
: 
| + 
| ; 
: PSECT SUMMARY | : 
: Name Bytes Attributes ; 
;  LEDTSCODE 222 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) ; 
; Library Statistics 3 
EE i se dere amr 4 Ae a Me Symbols -------- Pages Processing ; 
3 File Total Loaded Percent Mapped ime : 
; _$25S$DUA28: EDT. SRCJEDT 13251 377 59 15 40 00:00.2 ; 
: $255$DUA28:CEDT.SRCIPSECTS.L32;1 1 50 7 00:00.1 3 
; 7$255$pUA28:CEDT. SRCISUPPORTS.L $2; 1 1 50 5 00:00.1 : 
ll 
: COMMAND QUALIFIERS ; 
; FU ERSPERE EE OSE OLD FUE TEM, OPT SALES PMITORCEOACE AL SEE SO8 18 SPC SOT ED ISR IS Hh RI MSRC$:LXPRINT.BLI/UPDATE=(ENHS$:LXPRINT 3 
Size: 222 code + 0 data bytes ; 
Run Time: 00:16.0 é 
| H 
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